home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 08 (1983-04)(Softdisk)(Disk 2 of 2 Side A).zip / Softdisk Magazette Volume 2, No. 08 (1983-04)(Softdisk)(Disk 2 of 2 Side A).do / PAL.MENU.bas < prev    next >
BASIC Source File  |  1996-12-24  |  1KB  |  38 lines
  1. 10  REM  PAL.MENU
  2. 15  DIM A$(10):D$ =  CHR$(4)
  3. 20  TEXT : HOME : SPEED= 255
  4. 30  HTAB 14: INVERSE : PRINT " PAL.MENU ": NORMAL 
  5. 1000 I = 0
  6. 1010 I = I +1: IF I >9 GOTO 1200
  7. 1020  READ A$(I): IF A$(I) = "END" GOTO 1200
  8. 1030  PRINT : HTAB 01: PRINT I;" = ";A$(I): GOTO 1010
  9. 1200  VTAB 23: INVERSE : PRINT "G=GOBACK  S=START OVER  ";
  10. 1210  IF A$(I) < >"END"  THEN  PRINT "M=MORE ";
  11. 1220  NORMAL : VTAB 21: HTAB 1: GET R$: PRINT R$
  12. 1225  IF R$ = "M"  AND A$(I) < >"END"  THEN 20
  13. 1230  IF R$ = "S"  THEN  RESTORE : GOTO 20
  14. 1240  IF R$ = "G"  THEN  PRINT D$"RUN SOFT.PALS"
  15. 1250 R =  INT( VAL(R$)): IF R >0  AND R <I  THEN  PRINT D$"RUN PAL.";A$(R)
  16. 1260  GOTO 1200
  17. 5000  DATA "06062.MARCHAM.MAR.83.A"
  18. 5010  DATA  "07869.FORDICE.DEC.82.A"
  19. 5020  DATA "07869.FORDICE.DEC.82.B"
  20. 5030  DATA "28501.BERDIA.MAR.83.A"
  21. 5040  DATA "33515.SMITH.MAR.83.A"
  22. 5050  DATA "33515.SMITH.MAR.83.B"
  23. 5060  DATA "48623.BUCK.MAR.83.A"
  24. 5070  DATA "55113.SCHAI.MAR.83.A"
  25. 5080  DATA "60108.CARLSON.MAR.83.A"
  26. 5090  DATA "61764.LA COMBE.FEB.83.A"
  27. 5100  DATA "63124.BIANCO.MAR.83.A"
  28. 5110  DATA "71291.CALDWELL.MAR.83.A"
  29. 5130  DATA "79015.QUINONES.MAR.83.A"
  30. 5140  DATA "80229.SALYER.MAR.83.A"
  31. 5150  DATA "80229.SALYER.MAR.83.B"
  32. 5160  DATA "86401.HANNAN.FEB.83.A"
  33. 5170  DATA "86401.HANNAN.FEB.83.B"
  34. 5180  DATA "92064.WEILER.MAR.82.A"
  35. 5190  DATA "93436.PENNOCK.MAR.83.A"
  36. 5200  DATA "93436.PENNOCK.MAR.83.B"
  37. 5210  DATA "94010.BEARDSLEY.MAR.83.A"
  38. 9999  DATA "END"